From 632c2579f7522e8e760ef1342a01fa52d018f8ef Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 23 Mar 1993 07:41:49 +0000 Subject: [PATCH] * files.el (insert-directory): Do chase symlinks before passing the directory name to ls. --- lisp/files.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index f27ceff0506..dc2d39319ec 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1689,10 +1689,13 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'." "-c" (concat insert-directory-program " -d " switches " " (file-name-nondirectory file)))) -;;; ;; Chase links till we reach a non-link. -;;; (let (symlink) -;;; (while (setq symlink (file-symlink-p file)) -;;; (setq file symlink))) + ;; Chase links till we reach a non-link. + ;; This used to be commented out, but Barry Margolin says: + ;; SunOS 4.1.3 (and SV and POSIX?) lists the link + ;; if we give a link to a directory - yuck! + (let (symlink) + (while (setq symlink (file-symlink-p file)) + (setq file symlink))) (call-process insert-directory-program nil t nil switches file)))))) (defun save-buffers-kill-emacs (&optional arg) -- 2.30.2